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The 



art i cl 


in 


which have 
first two 


issues of the BEEBON were 
written in house along with the 
editorial , etc- This issue 

its different as we have 
presented the best out of the 
contributed articles which we 
have recived over the last few 
months- In the last issue you 
may recall that I mentioned a 
BBC user group starting up on 
Merseyside, I am pleased to say 
that this group has now come 
into existence serving a large 
area of the North-West. The 
group meet twice a month in two 
different locations, the first 
is held at the STEM buildings 
in Liverpool on the third ♦ 
Thursday of each month, the 
next meeting being on October, 
21st at the following address: - 


STEM 

117, Grove St, 
By Myrtle St, 

L I VERPOOL 
FROM 7.30 PM 


The next meeting of the 
month is held at Birkenhead 
technical college some time 
this month for details ring Bob 
Perrigo, it is usually held at 
this address:— 

BIRKENHEAD COLLEGE OF 
TECHNOL I GY , 

BOROUGH RD, 

BIRKENHEAD 


YOUR LETTERS 


of 


unbi 

of 


month we will print a 
ion of letters which 
der of interest to 

micros. Some will 
ive, we will be 
as possible. Writers 
11 printed letters will 
ve a BUG-BYTE tee-shirt. 
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Dear Sirs, 

Thank you -for two 
excellent magazines. The games 
Blitz and Thargoids are 
extremely good, especially the 
sound and graphics of Thargoids 
and the utility programs are 
extremly useful. 

The only programming 
problems I have encountered 
were with Thargoids. At line 
600 & 630 you have opened 

inverted commas to print 
blanks to the end of the line. 
I know this works on most 
micros, but the BEEB does not 
like this, returning an 

appropiate error message. 
However this is easily 
corrected by adding a second 
set of inverted commas at a 
^■^suitable point to blank out the 
previous contents of the line. 

The other problem was 
the speed at which the setting- 
up routine in lines 390 to 600 
ran. This happened so quickly 
that it was impossible to read 
the heading produced by line 
390,470 and 550. I therefore 
introduced the following delays 
so I could watch it all 
happening. 

445 PROCSLOW 
535 PROCSLOW 
595 PROCSLOW: PROCSLOW 
1395 PRINT TAB (0, O ( ; 

1650 DEFPR0CSL0W 

1660 T I ME=ST: REPEAT UNTIL 

TIME=ST+5C> 

^ 1 670 ENDPR0C 

I wish the problem 
with printed listings from 
other sources were as easy to 
debug as this! 

As I have a model B, I 
thought that a few simple 

changes should allow me to run 
the program in colour in Mode 1 
and thus do full justice to 
your splendid graphic 

characters. The extra 

horizontal lines do close the 
display up slightly in a 

vertical direction but not 
enough to make it worthwhile 
altering the height of the 

di spl ay. 


For anyone still 
struggling with the commands 
for colour on the BEEB, the 
following mods will give the 
colours of my choice. Any 
others can be chosen by 
altering the second bytes of 
the VDU 19 commands in line 5. 

5 MODE 1 : VDU 

19.0. 7.0.0.0. 19. 1. 1.0. 0.0. 19.2, 

11.0. 0.0.19.3.0.0.0.0 

20 Delete MODE6 from this 

1 i ne 

165 COLOUR 3 
385 COLOUR 2 
465 COLOUR 1 
545 COLOUR 3 

965 IF TYPE=2 THEN COLOUR 1 
ELSE COLOUR 3 

This gives black 
(colour 3) text on a white 
(colour 0) background, flashing 
blue and yellow gloop holes, 
red (colour 1) Thargoids and a 
black person. 

An addictive game 
which runs fast very well - I 
can’t keep my wife away from 
it ! 

Unlike many more 
unfortunate people , I had no 
problem to date with my BEEB 
apart from a 7 month delivery 
period! However letters to 
Kettering (the phone is always 
engaged) about the new 1.0 ROM 
re: its cost and how it is to 

be fitted and about some 
reimbursment for the loss of 7 
months interest on my money 
have elicted no response. Has 
anyone out there got any 
answers to this? 

Looking forward to the 
future do you have any plans to 
review printers and thier 
interfacing to the BEEB. I am 
sure this would interest a lot 
of people. Alas an article or 
two on obtaining the special 
effects and graphics of the 
BEEB in machine code routines 
would be appreciated. 

Thanks again for 
producing such a good magazine. 



M. Benson 



EDs Thankyou for the 
comp li men try letter and the 
answers to some of the problems 
in THARGOIDS. As to your 
questions on the new ROM, I am 
afraid we know as much as 
yourself but will try and keep 
you informed. 


am 


I have enclosed a 
short graphical program for the 
BBC Model B which I would like 
you to publish in your 
magazine. The result is as far 
as I know an undiscovered 
product. The triangles are 
striped and when one is drawn 
on top of another they merge 
giving an unusual effect. 
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i. 



A. D- Lindsey (AGE 11) 


10 

20 

30 

40 


MODE 

GCOL 

PLOT 

GOTO 


RND<16) ,RND<7) 

85, RND< 1280) , RND < 1024) 
20 


NEW BUG-BYTE 


Look in the national 
magazines for a full P^Q e 
advert of our brand new 
adventure game "DRAGONQUEST" . 
This full feature adventure 
game includes sound effects and 
full graphics representat i on of 
the creatures which you have to 
attack or the room you are 
currently in. The game consists 
of two levels, the first of 
which is available now, the 
second follows in a month or 
two. Both will be available for 
eleven pound fifty direct from 
us or through a local BBC 


of 

the 


from 


Two other new games have 
been introduced into our range 
of BBC software. The first of 
these is a full feature FRUIT 
MACHINE game, it uses the 
graphics and sound capibilities 
of the BEEB to their fullest- 
It's features include smooth 
scrolling tumblers, HOLD 
buttons and NUDGE facilities. 


The very first powerful and exciting chess 
game far the BBC Micro One thousand levels 
of play, plus many options including setting up 
board fox chess problems, saving gamos on 
tone etc Deals with castling and en passant- 


Spo 




m 






rm 




ifi 
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APPLE RECEIVER FROM BEEB AND APPLE TO BEEB TRANSMITTER 


3LIST 

10 REM NK 3 OCTOBER' 82 
20 REM 

30 REM RS232 IN SLOT2 

40 REM 8 DATA, NO PARITY,! STOP 
50 R = 49316s POKE R,3s POKE R,21 

60 GOTO 380s REM IN LIEU OF MENU 

70 REM PRINTER IN SLOT 4 
80 CALL 768 

90 GET A*s IF A* < > CHRS <27> 

THEN PRINT AS; s GOTO 90 
1 OO END 

HO REM BEEB TO APPLE DISK 
1 20 CALL 768 
130 DIM A* (200) 

140 ES = CHRS (27) s REM ESCAPE 
150 RS * CHRS (13) s REM C/R 
160 FOR N = 1 TO 500 
170 T = N / 5: IF T = INT <T> THEN 
T = FRE <T) 

180 A* = ,,,, 

1 90 GET GS 

200 IF GS = ES THEN M = NsN = 50 
Os GOTO 230 

210 IF GS < > RS THEN AS = AS + 

GS* GOTO 190 
220 AS <N) - AS; M = N 
230 NEXT N 

240 PRINT CHRS (7); OHRS <7> 

250 INPUT " FILE NAME ? ";AS 
260 IF LEN (AS) * O THEN 240 
270 AS = AS 4- ".BEEB" 

200 PRINT 

290 PRINT CHRS (4) "OPEN" AS 
300 PRINT CHRS (4) "WRITE"AS 
310 FOR N = 1 TO M 
320 PRINT AS <N) 

330 NEXT N 

340 PRINT CHRS (4) "CLOSE "AS 
350 END 
360 REM 

370 REM APPLE DISK TO BEEB 
380 DIM AS (200) 

390 ONERR GOTO 480 
400 PRINT 

410 INPUT ” FILE NAME ? ";ASxAS = 
AS +• ".BEEB" 

420 PRINT CHRS (4) "OPEN "AS 
430 PRINT CHRS (4) " READ " AS 
440 FOR N = 1 TO 200 
450 GET GSs IF GS < > CHRS (13 

> THEN AS * AS + GS: GOTO 45 
O 

460 AS (N) = AS: AS = "" 

470 NEXT N 
480 M = N 

490 PRINT CHRS (4) "CLOSE" 

300 PRINT CHRS (4) "PR*2" 


510 


FOR N * 1 TO M 
520 PRINT A*<N> 

3*0 NEXT N; END 


APPLE MACHINE CODE SUBROUTINE 


3CALL- 

151 





♦300LL 






0300- 

A9 

OB 


LDA 

#*OB 

0302- 

85 

38 


STA 

♦38 

0304- 

A9 

03 


LDA 

#♦03 

0306- 

85 

39 


STA 

♦39 

0308- 

4C 

EA 

03 

JMP 

♦03EA 

030B- 

A9 

15 


LDA 

#♦15 

030D- 

8D 

A4 

CO 

STA 

♦C0A4 

0310- 

AD 

A4 

CO 

LDA 

♦C0A4 

0313- 

4A 



LSR 


0314- 

BO 

OA 


BCS 

♦0320 

0316- 

AD 

OO 

CO 

LDA 

♦COOO 

0319- 

lO 

F5 


BPL 

♦0310 

031 B- 

8D 

10 

CO 

STA 

♦COlO 

03 IE- 

30 

03 


Blil 

♦0323 

0320— 

AD 

A5 

CO 

LDA 

♦COA5 

0323- 

48 



PHA 


0324- 

A9 

55 


LDA 

#♦55 

0326- 

8D 

A4 

CO 

STA 

♦COA4 

0329- 

68 



PLA 


032A- 

09 

80 


ORA 

#♦80 

032C- 

60 



RTS 


Q32D- 

EA 



NOP 


032E- 

EA 



NOP 


032F- 

EA 



NOP 


0330- 

OO 



BRK 


0331- 

00 



BRK 




BEEB TRANSMITTER AND RECEIVER 


PROG - BEEBL 1ST 
lOOO *FX8,4 
1010 *FX7,4 
1020 *FX5,2 

1040 *KEY9?*0210=*00*?Sc0211=*OD !L !M 


1050 

P7.=ScODOO 



1060 

E 



1070 

-START 



1080 

LDA#8c02 



1090 

JSR &FFEE 

\ 

open gate. 

HOO 

-LOOP 



1110 

LDA *cFEG8 

\ 

get AC I A status. 

1120 

LSR A 

\ 

check BIT 0=1 

1130 

BCC LOOP 

\ 

ELSE try again. 

1140 

LDA «cFE09 

\ 

get ACIA data. 

1150 

PHA 

\ 

hide it 

1160 

LDA #*03 



1170 

JSR ScFFEE 

\ 

close gate 

1180 

PLA 

\ 

recover data 

1190 

RTS 

\ 

and exit. 

1200 

] 



1210 

END 

* 
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BBC BIGPRINT 
iJ BY TONY LORD(bERKS 

If you have played with Mode 7 graphics you'll know that you can 
nrint do ubl e' h e i qh t characters. You can see what a dramatic 
imnact that can have on your displays. However, you can t do 
IhSt in other Sodes and it would be useful! The program below 
. 'nnoH ac => PROC u s e a b 1 e in Modes 1 and 4 directly and by 

r n ?^%^ e is a ^iM: -^cSJ K character *" 

the' colours U tha t d it^is d printed^° -ri X 

so very large characters (MAG=25 say) aopear as huge blocks. 


BIGPRINT 




Data: 

Left hand X column of new char. 
Bottom Y row of new char 

Character 

Maanification multiplier 

(LX) 

(BY) 

(A*) 

(MAG) 


Action: 

Check Magnification Factor > = 1 

Print character within permitted field 

Scan character for colour information 
and Store in CHARSTORE Matrix 

Draw Magnified Character 

PRINCHAR 

SCANCHAR 

MAGCHAR 

PRINCHAR 




Data : 

Left hand X of permitted field 
Bottom Y of permitted field 
Character 

(LX) 

(By) 

(AM 


Constant: 

X offset for IH col of char from 
Y offset for bottom row of char 
(adjust for MODE) 

L X 

from BX 


Action: 

Link cursors . . ... 

Move araphics cursor to right position 

(LX+OX, BY+OY) 

Print character 


SCANCHAR 




Data : 

Left hand X of permitted field 
Bottom Y of permitted field 

Row increment 

Column increment 

(adjust RI , C I for MODE) 

(LX) 

(BY) 

(RI) 

(Cl) 

• 


Action : 


MAGCHAR 

Data: 

T echni q ue : 

Acti on : 


Define Y co-ordinate as BY+|RI 
Repeat 

Define X co-ordinate as LX+|CI 

./ 

Get POINT value of X,Y and store in CHARSTORE (X,Y) 

Increment X by Cl 
Until done for all 8 columns 
Increment Y by RI i Reset X co-ordinates 
Until done for all 8 rows 


Left hand X of permitted field 
Bottom Y of permitted field 
Row increment 
Column increment 
Magnification multiplier 


(LX) 
(BY) 
(RI) 
(CL'' 
(MAG ) 


Plots Quadrilaterals of colour by plotting & 
filling in squares of colour. 

(This could be speeded up by plotting adjacent 
similarly coloured blocks at the same time!) 


Define Yl co-ordinate 
Repeat 

Define XI co-ordinate 
Repeat 

For this square: 


as BY 

as LX: MOV E to (X,Y) 


X 2 = X 1 + (Column increment x magnification) 
Y2 = Y1 + (Row increment x magnification) 


then: 

MOVE to XI , Y2 

Fill tri angle to XI , Yl 

Fill triangle to X2 , Y 1 


and : 

New XI = old X 2 
Until done for all 8 columns 

New Yl = old Y 2 : Reset X 1 =L X 
Until done for all 8 rows 
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10 MODE 4; DIM A* (1 ) , CHARSTO RE ( 8 , 8 ) 

20 PRINT "BIGPRINT DEMO PROGRAM” 

30 INPUT " X , Y CO-ORDS FOR BOTTOM LH CORNER", X,Y 
40 INPUT ''CHARACTER FOR PRINTING", AS 
50 INPUT "MAGNIFICATION (>1 ) " , MAG 

60 IF L E N ( A S )< > 1 OR IF MAG < 1 OR X<0 OR X > 1 248 OR Y<0 OR 

Y > 1 09 2 THEN RUN 

70 PROC BIGPRINT ( X , Y , AS >MAG ) 

80 END 



100 DEF PROCBIGPRINT (LX, BY, A3, MAG) 
110 IF M<1 THEN ENDPROC 

1 20 PROCPRINCHAR(LX,BY,AS) 

130 PROCSCANCHAR(LX,BY) 

140 PROCMAGCHAR (LX, BY, MAG) 

150 ENDPROC 


200 DEF PROCPRINCHAR(LX,BY,AS) 

210 LOCAL OX , OY 

220 OX-O : 0 Y = 28 

230 V DU 5 : REM LINK CURSORS 

240 MOVE (LX + OX , BY + OY ) 

250 PRINT L E FT $ ( AS , 1 ) : VDU 4 : REM SEPARATE 

260 ENDPROC 


300 DEF PROCSCANCHAR(LX% BY%) 

310 LOCAL R I a , C I % R 0 V.% , COl% , X% , Y% 

320 R I % = 4: C I % = 4‘ 

330 FOR R 0 W % = 0 TO 7 

340 FOR COL%= 0 TO 7 

350 X%= LX%+ Cl* DIV 2 + CI%*COL% 

360 Y %= L Y$ + R I % DIV- 2 + RI%*COL% 

3 70 CHARSTORE(COL%,ROWa)=POINT(X%,Y%) 
380 NEXT C 0 L % : NEXT ROW* 

390 ENDPROC 


400 DEF PROCMAGCHAR ( LX* , BY* , MAG* ) 

410 LOCAL CI%,RI*,R0W*,C0L%,XU,Y1%,X2%,Y2% 
420 R I % = 4*MAG% : CI%=4*MAG% 

430 X 1 % = L X % : Y 1 % = B Y% 

- 440 FOR R0W*0 TO 7 FOR R0W*=Q JO 7 
450 MOVE X 1 % , Y 1 % 

- 460 FOR COL *0 TO 7 FOR C0L% = 0 TO 7 
--470 GCOL 0,CHARST0RE(C0L1R0W%) 

480 Y2*=YU + RI%: X2*=X1*+CI* 

490 MOVE X 1 % , Y2% 

500 PLOT 85 , X 2% , Y 1 % : MOVE XU, YU 
510 PLOT 8 5 , X 2 % , Y 1 % 

5 20 XU = X 2* 

530 NEXT COL* 

540 Y 1 % = Y 2 % : X T % = LX^ 

550 NEXT ROW* 

560 ENDPROC 
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POSSUM 


With the advent of i nexpens ive mi c recompute rs ap ec i a i sc hoc* i s 
have not been stow to realise the potential power that has 
suddenly been made available to them. This short program was 
designed for use by Physically disabled pup'i is, many of whom 
do not have the power of speech. Prior to the use of a 
computer with its VDU they were unable to see the results of 
their efforts on the convent ioal Possum typewriter. 


This initial program a! lows the production of text f i i es a*.d 
it is hoped that as program development takes Place the 


II 


poss u m interface" w i 


! ! be incorporated in to conventional 


teaching programmes. The developers also wish to explore tlw 
poss i b i 1 i t i es of Possum be i ns used by the d i sab 1 ed to wr i te 
their owm programmes. To further this aim tne maioi i ty of 
Possum is written in BASIC in the hone that this will allow 
d i sab 1 ed programmers to mod i f y Possum i tse i f ~ event ua I y 
giving them control over their own environment. Only when 
this is so will the advantages of this new technology be 

being exploited to the full. 


This version of Possum was 
Ed u cat i on Au t ho rity an d 
comments or offers of help 


produced for use within the Wirra! 
we would be most grateful for any 
from local BBC owners. 


Please contact 


Alec Wood (Seconded Teacher Computing) 
Ed u cat i o n Office Ad v i s e r s Se c t i o n 
C I eve land St r eet 
Bi r Ken head 


Possum displays the character set as a matrix and^ the 

disabled user can control a cursor from two switches. These 
can be the original ’Puff and Buck’ or any conventional Push 
to make microswitch. The first switch moves the cursor along 
the matrix and the second switch moves the cursor up. 

Pressing the first switch again enters the character at the 

cursor position. 

The two programmes here were developed on a BBC model B but 
could run on a model A with memory and user port upgrades. 

They enable the handicapped person to use a computer without 

touching the keyboard. The first program is the "Possum Input 
Function". This is used in a convent iona 
function instead of an INPUT statement. 


p r og r am 


as 


a 


eg. 


(STRING VARIABLE) -FNPUSSUMC (PROMPT) > 


PROMPT can be e i t h*= 
At the moment these 
long because double 


r a variable name or a i iterai in Quotes, 
strings have to be under 40 characters 
height characters are used on the screen. 


The function has the full alphabet and upper and lower case 
can be sw i tched by so l ec t ins (CA) . The f u l t set of d i g i t s and 
several symbols are also displayed. Characters are colour 
coded. Control characters being green , letters blue* and 
numbers and symbols red. The matrix columns and rows are 
numbered in magenta. <BS) is a backspace with delete, <SP> 
gives a space, and <CR> acts as the normal RETURN key. 


SEE- DIAGRAM B ON INSERT AND PAGE 13 ONWARDS 
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i 0 REM '++ ; : + : 4= 4: •+: •+: 4:4= 4:4: 4: 4: 4 : 4:4: 4: 4 4: >f : 4:4: 4= 4: 44 : 44 : 

20 REM* 1 * 1 *"***:** 5 * 5 *:*: AL I EN 444:44:4:444:4:4: 

30 REM4:4:444:44 BY I. CROSSLEY 4:44444:4: 

40 R E M + + 4 4 4: 4: 4= 4.4 4: 4: 4: 4= 4: 4: 4: 4: 4: 4- 44:4- 4= 4 4= 4:4= 4= 4: 

50 REM 

50 MODES: VULJ 19, i,9?0? 19, 0 , 6;0;23;S202;0?0;0; 

70 COLOUR! 

S0 GCOL0, 2 

30 PL0T69, 960, 0: PL0T63, 400, 0: PL0TS5, 540, 400 
100 PRINTTABC5, 10) "ft LIEN" 

110 A= INKEY (200) 

120 D1MA?£ (20, 20) :ay=0: ax=0: yy =0: yx=0 
130 M0DE4 
140 PROCINST 
150 R-RND< 10) 

160 FORX-iTORs XX=RND( IS) :F0RY=1TQ13: A*< XX, Y) =-l sNEXTY, X 
170 R=RND(10) 

FORX-1TQR: XX=i+RND( IS) :FQRY=*iT019: A%CY, XX ) =-l : NEXTY, X 
X*RND<20) :IFA%CX, 1 >=-lTHENA%< X, 0)=~1 ELSE GOTO190 
X=RND(20) : IFA%( 19, X)=-1THENAY.(20, X)=-l ELSE GOTO200 
YX= s RND( 10) +5: YY=RND< 10>+5: IFAY-CYX, YY) <> -1THEN210 
AX-RND<20) : AY=RNDC20) : IFAX=YX AND AY=YY THEN 220 
IF A%( AX, AY) 0-1 THEN220 
M0DE1 

PRINTTABC3, 20) "AFT" TAB (4, 21 ) "+"TAB ( 4, 22) " I " 

VDU19, 1 ,■ 9 ’ 0 , 

COLOUR 1 

PR1NTTABC0, 4) CHR$(224) ? : COLOURS: PRINT" = ALIEN" :C0L0UR2: PRINT 1 CHR*<224 
>? :C0L0UR3: PRINT" = YOU" 

290 VDU28, 0, 31, 39, 28, 24, 0; 123? 1279? 1023:29, 0? 128? 

300 MOVE320, 0:DRAW392, 0 

310 DRAW992, 672:DRAW320, S72:DRAW320, 0 

320 FORX=320TO992STEP32 : PL0T59, X, 572: DRAWX, 0: PL0T69, 320, X-320 : DRAW992, X-32 

0: NEXTX 

•330 REM 444444444444:4:4:4:444:4444:4: 

340 C3COL0, 0: PL0TB9, 332+yx, 10+yy : PLDT59, 340+yx, 10+yy : PL0T85, 332+yx, 26+yy : PL 

0T85, 340+yx, 26+yy 

350 PL0T53, 332+ax, 10+ay : PL0T69, 340+ax, 10+ay : PL0T85, 332+ax , 26+ay : PL0TS5, 340 

+a&, 26+ay 

yx=YX4:32: y y^YY+32 
GCOL0, 2 

PL0TS9, 332+yx, 10+yy : PL0T69, 340+yx, 10+yy : PL0T85, 332+yx, 26+yy : PLQT85, 340 

a. x = A X +32 : a y = A Y+32 
GCOL0, i 

PL0T59, 332+ax, 10+ay : PL0T59, 340+ax, 10+ay : PL0TS5, 332+ax, 26+ay : PL0T85, 340 

CLS:PRINT"You can go "? 

A-0 : P=0: S=0:F-0 

IFA%<YX+1, YY)=-lTHENPRINT"Port " ? :S=1 
IFA%<: YX-1, YY) --1 THENPRI NT " St a r boa rd " ? : P= 1 


180 

190 

200 

'.-220 

230 

240 

250 

260 

270 

280 



480 

470 

480 

430 

500 

510 

520 

530 

540 

550 


IFA%<YX, YY+1>= 
IFA%CYX, YY-1)= 
PRINT’ “ Which 
♦FX15 0 
A*=INKEY*C300) 
I F A$= " W “ THENY Y 


lTHENPRINT"Aft ";:A=i 
1THENPRINT" Forward " ;:F=1 
way ?" 


i 


>YY+A:IFA=0 THEN XI =YX : Y1=YY+1 : PROCBLOCK 
IFA$="Z"THENYY=YY-F: IFF=0 THEN X1=YX : Y1=YY-1 : PROCBLOCK 
IFA*="A"THENYX=YX~P:IFP=0 THEN Xi=YX-l :Y1=YY: PROCBLOCK 
IFA*="S"THENYX=YX+S:IFS=0 THEN X1=YX+1 : Y1=YY: PROCBLOCK 
IF YX=20ORYY=0THEN M0DE7: PRINTTABC0, 10) “You are out of the ventilator 
shafts! M * “They have been sealed off and the a I i en"’ " b I own into outer space ' " : DOT 
0760 

580 IFAX=YX AND AY=YY THEN VDU26, 12: PRINT” " You have beer, eat 

en by the"”’ ALIEN ! ! "’ :GOTO760 


570 
580 
590 
800 
610 
620 
630 
640 
650 
660 
670 
en by 
680 
690 
700 
710 
720 
730 
740 
750 
760 


IF 

IF 

IF 

IF 




the 


HEN CLEAR SGOTO120 


A=0 : P=0 : S=0 : F=0 

IF AX+K20 AND AY-CAX+l, AY) =-lTHENS=l 
IFA%( AX-1, AY) =-lTHENP=l 
IFA%( AX, AY+1)=-1THENA=1 
IF AY— 1 > 0 AND AY.CAX, AY-1 ) =-lTHENF=i 
AX> YX THEN AX=AX-P 
AX <YX THEN AX=AX+S 
AY> YY THEN AY=AY-F 
AY <YY THEN AY=AY+A 

IFAX=ax/32 AND AY=ay/32 THEN GOSUB700: GOTOBG0 
IFAX=YX AND AY=YY THEN VDU26, 12: PRINT’ 

" 1 " ALIEN!!"’: GQTO760 

IFAX=20 OR AY=0THENAX=ax/32: AY=ay /32 : GOTO660 
GOTO340 

ON RNDC4) GOTO 710,720,730,740 
IF P=1 THEN AX-AX-P: RETURN 
IF F=1 AND AY— F> 0 THEN AY=AY-F : RETURN 
IF S«1 AND AX+S <20 THEN AX=AX+S: RETURN 
IF A=1 THEN AY=AY+A: RETURN 
RETURN 

PRINT” "Do you want to Play again CY/N) ?" s A$=GET$>: IFA$>="Y" OR A$="y" T 


You have been eat 


770 

780 

790 

800 

810 

820 

830 

weapons 

840 

850 

880 

870 

880 

890 

900 


IFA*<>"N" AND A$ < > " n " THEN760 
END 

DEF PROCINST 
CLS 

VDU5: MOVE320, 1023: PRINT" A LIEN ": MO VE320, 1023: PRINT" 
VDU4: PRINT 

PRINT” "You are trapped in the ships ventilator 
and don’t" 

PRINT’ "know the Plan of the shafts." 

PRINT’ "There are ONLY TWO exits, one forward 
PRINT’ "The controls are: 


l! 




41 7 7 II 


system. You have 


no 


44 7 7 II 


and one port. 


ii 


H 


PRINT’ ’ " 
PRINT’ " 
PRINT’ " 
PRINT’ " 


W * AFT" 

Z = FORWARD" 

S = PORT" 

A = STARBOARD" 


910 


PRINT” "You have got a motion detector to show"” "you where the alien 


is and where you ’ "are. " 


920 

930 

940 

950 

980 


970 

0T85» 340+X1* 2G+Y1 
980 ENDPROC 


*FX15 0 

PRINT’ "Press ’ SPACE BAR 1 to start. " ? : REPEAT :UNTILGET*=" " 

ENDPROC 

DEF PROCBLOCK 
X1~X1*32:Y1=Y1*32 

GCOL01 3: PL0T69, 332+ X 1 , 1 0+Y1 : PL0T69, 340+X1, 10+Yi s PL0T85* 332+X1 , 28+Y1 :PL 


MR. D.B. JOUBERT wrote to us saying: 


*1 


"After reading an article on sound production 
investigate the relationship between digit 
actual frequency produced from the Micro. 

By connecting a frequency-counter to the speaker 
that entering a "four" for frequency the note 
produced. By increasing digit by four the next 
was produced, etc. 


decided to 
and the 


leads I found 
(130HZ) was 

< 13HZ ) 


•i 


er to 1 i st 


below for digits, notes and frequency. 


LIST OF DIGITS, NOTES, FREQUENCY. 




i 


DIGIT 

NOTE 

FREQ. 


DIGIT 

NOTE 

4 

C2 

130.81 


100 

C4 

8 

C2£ 

138.59 


104 

C4£ 

12 

D2 

146.83 


108 

D4 

16 

D2£ 

155.56 


112 

D4£ 

20 

E2 

164.81 


116 

E4 

24 

F2 

174.61 


120 

F4 

28 

F2£ 

185.00 


124 

F4£ 

32 

G2 

1 96 . 00 


128 

G4 

36 

G2£ 

207 . 65 


132 

G4£ 

40 

A2 

220 . OO 


136 

A4 

44 

A2£ 

233 . 08 


140 

A4£ 

48 

B2 

246.94 


144 

B4 

52 

C3 

261.63 


148 

C5 

56 

C3£ 

277. 18 


152 

C5£ 

60 

D3 

293 . 66 


156 

D5 

64 

D3£ 

311.13 


160 

D5£ 

68 

E3 

329.63 


164 

E5 

72 

F3 

349.23 


168 

F5 

76 

F3£ 

369. 99 


172 

F5£ 

80 

G3 

392 . OO 


176 

65 

84 

G3£ 

415.30 


180 

65£ 

88 

A3 

440.00 


184 

A5 

92 

A3£ 

466. 16 


188 

A5£ 

96 

B3 

493. 88 


192 

B5 

SORRY . SORRY . SORRY . The £ si 

gns 

shown 

above 

but the 

Osborne 

prints them 

out 

as £ 

signs. 


FREQ 


really be Ff 


1 ? 


, pRCfcRFM XiESifH ftltC WOO'D 

s r M :::-possu, 

8 rem*first line of program* 

IS ^Instead of INPUT " HELLO " A* use 

60 REM A*=FNPOSSUM<. "HELLO > ** 
ll r|m*„******* YOUR PROGRAM HERE ***** 

100 REM*LAST PART OF PROGRAM* 

110 DEF FNPOSSUM<PR*> ^ M nr 

la LOCALXX, YY, X, Y, P, L. INP*. A*, M, F, UL 

130 RESTORE 

140 ?&FEG2=0 ^ 

150 KQRY*iT07sF0RX*iT08 


1 

i 


»« 


i 


i&0 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 


M 




it 


(I u 


NEXTX 


II 

II 


■*10 


•-> 

3 


"*20 


330 


740 


3 
350 
360 
370 
>1 
380 


IFLEW<«^> 

CH* ( X , Y I =A* : NEXTX, Y „ . CH$( ; X ,S) =STR* C X ) + 

FQRX— 0TO8 : CH* <.0> 8-X > -STR* 

DftTftK* Qi Bt0t -7+, ^ 

DftTftW, V, J. 5 t9i #> 

OftTAU? Mi B> 2 j 4i 7j ) i 

DATPRtD’ Y, *’ , 0 

DflTft"CA.".N.C,F, - (| ; * 7 

DttTfV'SP. ", E, O’ L ’ ^R. ’ B * 

UC=0iF=0 s INP$=" *' 

PRI NTT AB C 0, 1 1 ) CHR* C 141 ) PR*TAB 1. 0, 12)CHR*C141 >PR* 
p-0: L-15 

F0RY ;KlN?Sx,Yl.X*4*2,Y,l> 

XX=0^ YY=B'- PROCPRINT CCH*(XX> YY), XX*4*2, YY, 2) ^ J 

“and F- THENPROCPRINT XX, YY) , XX*4+2, YY, 1) :XX=XX+1,1FXX> 
IFH-l HIMU r . . vvssVV“"l : 1FY 


ar*«« - « « «« om 


400 


IFM-i ftND F=1 HNU mo — c _ m . r nTf 

IRW AND F=1 and YY=S THENPR0CPRINTCCH*<XX,YY),XX*4*2, YY, 

■ 


410 

420 

430 

440 


PROCPRINT CCHMXX, YY) , XX*4+2, YY, 2) 

GOTO360 
DEF PROCCLS 


CLS 


'l 


450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
580 
570 
580 
590 
600 
610 
620 
630 
20 ) + " 
640 

' gs ?| 
660 
870 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
300 
810 
820 


FORX»0TO9 : PRINTTftB < 0, X > ? CHR* < «S3 ) ? 6HR$ < 1 57 > 5 

NEXTXJENDPROC 
DEF PROCPRINT Cft**X,Y,C> 

SgKSlSm* 1 „-b-b»l E ft.<b., .. <-z-™cot.is won 

1 .<-B-0»LEFT«<B.. i>- — .THBCOL-M1 
t c- c y=“’QRY=8 ) ANDC= 1 THENCOL -&0 ^ 

^RIGHT^^It-^-'THENB^FHLCflSE Cfl« 

PRINTTAB CX» Y> ? CHR$CCOL> tBii 
PRINTTflBCP,L>5 
VDU255 

endprqc 

DEF FNLCflSECA*) 

localb$ 

l^^LEFT.CP*. » <="Z" THENB4=CHR* C fiSC (LEFT* C 1> >+* 

"ELSEB^=A^ 

=B$ 

DEF FNGET 

^^ M E ! REPE fi T:B= ?& FE6 0 -UNT I LB=25 5 OR CTI M E=NTI«E + 200) 

ft*=?&FE60 
IFA»255THEN6S0 
IF«*254THENA«1 
XFA-253THENA S =2 

“THEN350 

TPPTRHTtrft*. 1) = " "THENPHDCCHftRtft*) =0010350 
Rfll-^fl"THENUC=l-UC:R=USRCPROG-/.) =0010350 

IFflt= "SP‘. " THENPROCCHflR C " " > = 0010350 

TFG*="CR. "THEN = INP* 

I F A$>- " BS. " THENPROCBS s GOTO350 

STOP 

DEF PROCCHAR<A*> 

I FUC=0THENA*=F-“NLCASE t. R*> . _ vpns 

PRINTTAB CP, L> 5 LEFT* < A* » 1) 5 : P~POS * L-VPOS 
INP*»INP*+LEFT*CA*. 1 > 

ENDPROC 
DEF PROCBS 

IFINP*“" "THENENDPROC nn.-irmc ,■ p t ’i 

INP*=LEFT*aNP*.UEN(INP*)-nsPRINTTRBlP.L) 

ENDPROC 

F ORY=iTOS=FORX=0TO8 -.fl.flNDLEFTKCH* t X, Y) , 1) ( = " Z" )RNDRIGHT*<CH* CX 

NEXTXt y 
GOT 0350 


l< <f 


: VDU127* VDU127 s P=P~1 
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1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1280 
1270 
1280 
1290 
1 300 
1310 
1320 
1330 


DEF PROCINIT 
DIMCH*<S.S>, PROG* 80 
VDU23 ? 8202 ? 0 ! 0 ' 0 5 
FORO0TO2STEP2 
P-/.= PRDG% 

COPT C 
LDX #0 

. LOOP1 LDP &7C28i X 

CMP #8.-84 

BEG VEH 

. RXNK1 INX 

CPX #8-90 

BNE LOOP1 

LDX #0 

. L00P2 LDA 8-7CBS, X 

CMP #8-84 

BEQ YEHi 

. RINK2 INX 

CPX #8-90 

BNE LQ0P2 

RTS 

. YEH LDA 87C29, X 
rt r 

EOR #8-20 
ST A &7C29i X 
JMP RINK1 
.YEHI LDA &7CB9 t X 

CLC 

EOR #820 
STA 8-7CB9i X 
JMP RINK2 

3 

NEXTC 


ENDPROC 



l 

X 






= -i'i 




•5 REM PS06Rim T5ESI&N f)LfC VO oT> 


'L'lJ 


(I 


If 


10 REM*************************** 

20 REM**** I. CROSSLEY **** 

30 REM***POS3UM WORD PROCESSOR*** 

A 0 REM * * * 4:4:4* 4:4: 4: 4: 4-4 : 4* 4: 4- 4 afc**** 4: 4*4: 

50 REM INITIALISE 
&0 M0DE7 
70 PRDCINIT 
80 UC=i sF-0 
90 F0RY=1T07SF0RX=1T08 

READA*: IFLENC A*) <3THENA$=A*+" 

I F A*= " 7 " THEN A$=CH R* < & 22 ) + " 

CH$(X, Y)=A$sNEXTX, Y 

FORX=0TOS : CH$ (0> S-X)=STR*<X)+" ":CH${;X, S)=STR$CX)+" NEXTX 

DATAK, Q» 6, 0, +7 “TI . M 

DATAW, V, J, 5, 9, =7 #7 "TO. " 

DATAU,M, B, 2,4,7, >,S 
DATAR, U, Y, ", ", X, 'r, *, "’ " 

DttTfi"CA. ", N. C, F, ". ", 1, <, 3 
DATAT, ft, S, H, P, G, Z, "CL. " 

DATA"SP. ", E, 0, I, L, "CR. ", "BS. ", "PR. " 

PROCCLS 
P=0:L=10 

FQRY=1TOS:FQRX=0TOS 

PROCPRINT CCH$<:X, Y) , X*6+2, Y, 1) 

NEXTX, Y 

REM ENTER AND START 

XX=0:YY=8: PROCPRINT (CH*CXX, YY), XX*4+2, YY, 2) 

M=FNGET 

S0UND1, -15, 100+:M+50, 2: BOUNDS, -15, 100*M, 2 

IFM=1 AND F=0 THENPROCPRINT <CH*CXX, YY), XX*4+2, YY, 1) :XX=XX4-1: IFXX>8THEN 


IFM=2 AND XXO0 THENF—l s PROCPRINT CCHSCXX, YY) , XX*4+2» YY, 1) s YY=YY— 1 s IFYY 


320 


a 


330 


IFM=1 AND F=i AND YY<S THENPROCPRINT <CH$(XX, YY) , XX*4+2, YY, 1) :F=0sGOTO6 
IFM=1 AND F=1 AND YY=S THENPROCPRINT <CH*C XX, YY) , XX*4+2, YY, 1) :F=0:GOTO2 


-r 



PROCPRINT CCH*< XX, YY) , XX +4+2, YY, 2) 

GOT 02 80 
END 

DEF PROCCLS 

CLS 

LOCALX 

FORX=0TO9 : PR I NTTAB <0, X) ;CHR$< &83 ) ; CHR* <1 57 > 5 
NEXTX : ENDPROC 
DEF PROCPRINT <A*, X,Y,C) 

LOCALCOL, B$ 

IFC=1 THENC0L=1 32 
IFC=2THENC0L=135 

IFC=1AND<:LEFT$CA$, l) <"A"ORLEFT*CA*, 1)="-»)THENC0L=&S1 
IF C X=20RY~S ) ANDC=1 THENC0L=&85 
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1 


480 

490 

500 

510 

520 

530 

540 

550 

5G0 

20 )+" “ 
570 
580 
590 
£00 
£10 
£20 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
310 
820 
830 
340 
850 
360 
870 
380 
890 
900 
910 
920 
930 
940 
950 
960 
970 


I FC=lflNDRIGHT*CR*,i) = , '."THENC0L=&S2 SE , :fl * )ELSEB *=ft* 

IP UC=0 mtiMr* 

PRINTTftBCXi Y) ;CHR$<.COL> 

printtab<p.l); 

endproc 

DEF FNLCASECA*) 

!>>=•'«" «® LEFT*tft*> 1) <=" Z" THENB*=CHR*CftSCCLEFT*Cfl*. D >♦ 

‘•ELSEB*>=A* 

=B* 

BEF FNGET 

NT IME^T I ME ■ REPEAT 5 B=? &-FE60 5 UNT I LB=255 DR CTIHE^TIME^) 

fi=?&FE60 

I PR=255THEN6i0 

IFft=254THENA=i 

IFft*253THENA=2 

A:J>=CH$<'.XX, YY) (| ,. T ucwPROCCHAR<ft*) :GOTO270 

i rot- "Cfi "THENUC=1-UC :fiBC>USRCPROG*> :GQTO270 
I Ffl*=” SP". "THENPROCCHfiR < " " > = GOTD270 
X FA$= “PR. “ THENPRQCPR 1 GOTO f 

:SfSTORe“lI)-' "THENPROCDISP.GOTO210 
IFM="Cl'. 11 THENPROCCR '• PROCDI SP • GOT uz.1 0 

£££ ■' B 8 . " ThInPROCBS . GOTO270 

IFft*«"TI- "THEN1 150 

STOP 

DEF PROCCHAR 1 ’ 

J.FVPOS) 29THENENDPR0C 

YFnr-CTTHENAt-FNLCASE 1 A*. J 

^^P^uI 1 |tS^^S: L =VPOB 

STORE* <: L I) “STORE* CL I > +LEFT * C ft*. 1 > 

ENDPROC 
DEF PROCPR 

VDU2 
PROCDISP 
I VDU3 

, ENDPROC 

I DEF PROCCR 

3 PROCCHARCCHR*<i3) >5Ll*LI 1 

3 ENDPROC 1 1 n "it"THEN270 

a PRINT 7 1 ? "PRESS "5 

3 CHfiN=QPENOUT<:OUT*> 

m forx=itoli-i 
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980 FQRY=1T0LENCST0RE*CX> )-l 

990 BPUT#CHAN, ASCCMID*CSTORE*CX), Y, 1)> 

1000 FO RUC= 1TOI0! NEXTUC 

1010 NEXTY:BPUT#CHAN, 13 

1020 NEXTX 

1030 BPUT«CHAN, 0 

1040 CLOSE#CHAN 

1050 CLEAR :GOTO60 

10E0 DEF PROCBS 

1070 IFSTORE* CLI ) <> CHR*C 13) ANDSTORE*CLI ) <> “ "THENPRINTCHR*C 127) 5 s STORE* CLI) * 
LEFT* C STORE* CLI), LEN < STORE* CL I > ) - 1 ) : P=POS : L=VPOS : ENDPROC 
10S0 IFL> 10THENSTORE*CLI ) =" " : PROCDECi P=LENCSTORE*CLI ') ')-! :STQRE*CLI ) =LEFT*C! 
TORE* CLI), P) 

1090 IFP> 40THENP=P— 40 

1100 PRINTTABC P, L) ; 

1110 ENDPROC 

1120 DEF PROCDEC 

1 1 30 IFSTDRE* CLI ) = " " THENL I =L I - 1 : L=L- 1 

1140 ENDPROC 

1150 I FLEFT* C STORE* CLI), 1) <> "tt" THEIM270 

1 160 IN*-RIGHT* C STORE* CLI), LEN C STORE* C L I ) ) - 1 ) 

1 $1 FORX- 1 TO 100! STORE* C X)=" H i NEXTX 

1180 CLS 

1190 PRINT’ ’ ’ 5 11 PRESS PLAY ON TAPE" 

1200 CHAN-OPEN INC IN*) 

1210 LI=1 

1220 REPEAT 

1230 X=BGET#CHAN 

1240 I FX > 0THEN STORE* CLI) =STORE* CLI) +CHR*C X) 

1250 PRINTCHR*CX ) ? 

12S0 IFX=13THENLI=LI+1 s PRINT 

1270 UNTIL X=0 

1280 RESTORE :GOTOS0 

1290 DEF PROCDISP 

1300 LOCAL X , Y 

1310 CLS 

1320 FORX^ITOLI :NTIME=TIME+600: REPEATUNT I L? &FE60=253ORT I ME=NT I ME 

1330 PR I NTSTORE* C X ) : REPEATUNT IL?&FE60=255 : NEXTX 

1340 ENDPROC 

1350 DEF PROCINIT 

*FX5, 1 

1370 LI =1 

1380 ?&FEG2=0! DIMCH*C8, 8), STORE* Cl 00) , PROGY 80 

1 390 FORC=0TO2STEP2 

1400 P’/.-PROGY- 

1410 C.OPT C 

1420 LDX #0 

1430 .LOOP! LDA &7C2B, X 

1440 CMP #&-84 

1450 BEQ YEH 

1460 . RINK1 INX 




18 


1470 

CPX #&90 

1480 

BNE L00P1 

1490 

LDX #0 

1500 

. LD0P2 LDA & 

1510 

CMP #&S4 

1520 

BED YEH1 

1530 

■ RINK2 INX 

1540 

CPX M-90 

1550 

BNE LQ0P2 

1560 

RTS 

1570 

. YEH LDA &7C 

1580 

CLC 

1590 

EOR #&20 

1600 

STA &7C29? X 

1610 

JMP RINK! 

1620 

V 

. YEH1 LDA & 7 

1630 

CLC 

1640 

EOR #&20 

1650 

STA &7CB9, X 

1660 

JMP RINK2 

1670 

.3 

1680 

NEXT C 

1690 

ENDPROC 



COPYRIGHT BOB PERRIGO 


ADDRESS 




OOOO 

08 

C4 

01 

OOOE 

C4 

80 

32 

OOIC 

03 

C4 

48 

002A 

01 

Ol 

C4 

0038 

02 

19 

40 

0046 

BA 

00 

C2 

0054 

90 

D3 

C2 


01 19 
C4 20 
CA OO 

00 Ol 
DC BO 

01 


OO 9C 


printer 


After obtaining a Mode 
Having looked at 
it is usually a job for 


1 B 
the 


C4 

08 

35 

C4 

20 

C9 

04 

C4 

OO 

C9 

Cl 

Ol 

D4 

40 

98 

19 

01 

C4 

91 

BF 

Ol 

C4 

86 

8F 

11 

OD 

9C 

08 

C4 

49 

C7 

C4 

OD 

90 

CB 

th< 

■ next 

thing 


31 

C4 

08 

3C 

02 

C4 

40 

C9 

FA 

Cl 

OO 

CA 

11 

C4 

OA 

CA 

BA 

02 

9C 

F3 

CA 

OO 

C4 

OA 




bank balance after 


ybody wants is 

ining th 


the futur 


very 


low prices, 
normally HO 
and they 

s 

a CR. 


e a lot of RS232 and 20m/a teletypes around at 
which will give good but slow hard copy- They 
BAUD which is not available fro* the RS432 

not intelligent- i-e. They do not count th 
line and CR/LF on an overlapping line, or give 


The 

the 



The interface shown gives these 
printer socket and ribbon cable 
SC/M P and the INS 8154 were on 

of IC 16 <74LB08> which 
required, i-e- if R162 inside the BEE 
in the diagraa, pin 1 on the INS 8154 

will work in RAM or ROM- In th 
old HK14 is working as a dedicate 

SEE INSERT SIDE A. 


facilities on a teletype, 
fro* Technoeatic Ltd, 
the old MK14 along with a 
be used as a buffer i f 
is below the 4.7K as shown 
aay not drive it. 


The 
prototyp 
ichine. 


94 bytes of 
it is in ROM 


th 
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INTERLINK 



by Nik KELLY J © 4 October 1982 


This article describes a 1200 Baud link between a BBC'B* and an Apple. 

Interlink is very simple. If I want to send information from 
Apple to Beeb, a short program makes the Beeb behave like a printer. To reverse the 
process, I reset both computers and run a similar program into the Apple. 

_HARDWARE_ 

^ The hardware required is not complicated as both the Beeb 'B' and the 

serial card in my Apple use the 6850 A CIA. This ingenious chip handles the coding 

and decoding, parity, stop bits and all, through two memory locations for 
* Read Status — Write Control • and * Read In — Write Out \ The serial card 
came with a ribbon cable to a D25 socket and I added a short cable with •domino* and 
D25 plugs. I took care to swop the CTS/RTS and DIN / DOW lines. I also found that 
I had to put a mark on the Beeb and its plug, as the the 'domino * plug was reversible. 

_S0FTWARE__ 

I'll describe the Apple's software first. Both computers use the 
u502 processor chip, so the machine code is very similar. Unfortunately, Acorn and 
Apple use slightly different mnemonics for some instructions, LSR for LSR A , fpr 

example . 

Calling the short machine code program at 768 , HEX 3 00, connects the 
second part, commencing HEX 3C© , as the Apple's source of input. For every 
character received, this main program puts HEX 15 into the A CIA Status register to 
open the data gate. It then enters a loop. 

First it reads the ACIA status. If a character has been received, 
bit zero is set to one. This is easily checked by shifting it into the Carry. 
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* 


program would branch on 'Carry 
he A CIA is empty, the program 


then close the gate. 


HEX 


signed 


If that 


location is still positive, the program branches to the start of the loop. Otherwise, 


C000 


In both cases, 
is closed. 


temporarily 


As I've bypassed the normal Apple input route, which would have 


upper' 


I have to check incoming data in my 


program. The Apple stores BASIC commands in coded form, one letter per key word 


r 


distinguishes 


program 


You must re-connect the Apple's normal operation with IB # 0 after the transfer is 


complete , 


try 


The associated BASIC program uses the machine code to Ghi one character 
at a time from the serial interface, and build up a string. This is necessary because 
the Apple does not have an INHJT LINE command, and INPUT would be confused by commas, 
colons etc. An ASCII 13 is the end-of-line marker, and that complete string is then 
stored in an array. An 'Escape' key, ASCII 27 from the Apple's keyboard or 
VDU 1, 27 from the Beeb signals the end-of-file. The Apple then chimes twice and 
prompts for a file name, writing the string array to disk as a text-file. 


very 


program again 


to read the disk file, stores the lot in an array, then sends it to the 'printer' 
that it thinks is connected to the serial card. 


At the Beeb, though, things are a bit more complicated because there 
is an inscrutable UIA between you and the ACIA. I must thank Acorn for explaining 
how to make the BS423 show 'Busy*, and close the gate, but I still don't understand 
why the design doesn't permit easier control. I suspect that the 100 interrupts per 
second from the TIME clock may be responsible, in which case there should be a 'Serial 

Register Back-up Byte' somewhere. Changing the contents of that would have the same 
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effect as the direct access in the Apple. It would certainly rake the Beet's serial 
input a lot faster ! 


The present BASIC program sets up the haud rate, and assembles the 
machine code in a convenient place. I've followed the example in Acorn User, with 
the JIM page for the code, and a defined key to connect the link, but a DIM F# A 16 
on line one would do if the incoming program was higher numbered, or data was flowing 
through an INPUT statement. 

The program opens the A CIA by sending a Control-B (Printer On). It 
then loops until a character is caught, when it stores the data on the stack and 

closes the ACIA gate by sending a Control-C (Printer Off). 

I 

To transfer from Apple to Beeb, you must run the set-up program, 
press f9 to put the Beeb into its LISTEN mode, run the Apple program to send the data 
across, then recover control with the BREAK key and OLD. Please check that the first 
line of the program is intact, as the first character received by the Beeb ray be 
scrambled. If much data is lost, check the serial card parameters in the other 
computer. The ACIA should be set to 8 bits data, no parity and one stop bit, and 
the serial card should respond to the Beeb's CTS/RTS signals. Please consult manuals , 
friends etc in case of difficulty. If all else fails, check the wiring. I had mine 
back-to-front the first time • 



Interlink was demonstrated at the September meeting of the Liverpool 
BBC A Atom group, and represents the first stage in a simple serial network. If 
you have modifications, improvements or suggestions, please send them to Beebon, or 
bring them along to us. We meet at STEM, 117 Grove St, by Myrtle St, Liverpool 

between 7. 30 and 9. 30 PM on the Third Thursday of each month. 

Beeb users with OS 1.0 would be particularly welcome ! 
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Comments from 













he second pros raw is the "Possum Word Processor". This is 


a 


self contained program and has printer and tape output 
routines. As yet there are no editing faci lities other than 
the <BS> delete. T hie tape facility enables a program written 
using Possum to be ioaded back into the computer using *EXEC. 
At the moment this has to be done via the normal keyboard by 


an able person. The -format for saving to tape and for 
is to enter a file name preceded by a hash # . 


< Dad i Vi 9 


eg 


#F I LEI 


I his f i Sename must be on a clear 
is then achieved by selecting <TI> 
load *SPUOLed data. 


line. Tape Input or Output 
or <TQ> . <TI> will also 


When the screen becomes filled with text it. must be cleared 
using < CL > . This d i s p ! a y s ALL text so far entered and t hen 
clears the screen still remembering the text. <PR> does the 
same thing but sends the output to a printer connected to the 
para I lei port as well. 


The d i ag ram be l ow shows 
connected to the user port. 

used as switch!* Earth* and 


how the wicroswi t'ches should be 
F* ins 6-. 7 and S are respectively 
swi tch2. 



SUMMARY 


51 moves the cursor 

52 moves the cursor 



a! ons. 

UP. 




Si then enters the character at the cursor. , 

<CR> = RETURN 

<S P> = SPACE 

<CA> * CHANGE ALPHA 

<BS> = BACK SPACE 

<CL> = CLEAR SCREEN 

<PR> = OUTPUT TO PRINTER 

<TG> » OUTPUT TO TAPE 

<TI > = INPUT FROM TAPE 


<CL> and <PR> wait after each screen line for S2 to be 
pressed. This is to ai low the user time to read each I ine if 
renu i red. 

* 

These two programs could not have been written without 
information given by the staff of C I atterbr i dse Special 
School* where field trials are now taking Place. In the 
future we are hoping to make the listings avai table in space 
provided on PRESTEL for educational users. 

I. CROSSLEY. 



